1 GOSUB60100
10 PRINT"[147]          [199]UESS [212]HE [206]UMBER"
15 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
20 EZ$="E": PRINT"[197]ASY OR [200]ARD? [[197]/[200]]"
25 GETEZ$:IFEZ$<>"E"ANDEZ$<>"H"THEN25
30 EZ$=LEFT$(EZ$,1): IF (EZ$ = "[197]") THEN EZ$ = "E"
40 HI = +100: LO = -100
50 IF (EZ$ = "E") THEN HI = 10: LO = 0
60 PRINT "[199]UESS [212]HE [206]UMBER [198]ROM " LO + 1 "TO" HI
70 PRINT "[208]RESS [[210][197][212][213][210][206]] [215]HEN [196]ONE."
80 N = RND(0)*(HI - (LO)) + LO + .5
90 N = INT( N * 10 ) / 10
100 IF (EZ$ = "E") THEN N = INT(N)
110 GOSUB 10190
120 GET K$: IF K$ <> CHR$(13)THEN 120
130 PRINT"[212]HE [193]NSWER [201]S ";N
140 PRINT"[208]RESS: [[193]] TO GUESS ANOTHER NUMBER."
141 PRINT"       [[195]] TO CHOOSE [197][193][211][217] OR [200][193][210][196]."
142 PRINT"       [[210]] TO RETURN TO [204][207][193][196][211][212][193][210]."
145 GETK$:IFK$=""THEN145
150 IF K$ = "A" OR K$="[193]" THEN 60
152 IFK$="C"ORK$="[195]"THEN10
155 IFK$<>"R"ANDK$<>"[210]"THEN145
160 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
170 INPUT#15,ER:CLOSE15
180 IFER<>63THENEND
190 PRINTCHR$(147):LOAD"HELLO CONNECT",8
10000 REM    BLINK THE DISK ERROR LIGHT
10010 REM    NL NUMBER OF TIMES
10020 OPEN 15,8,15
10030 IF NL<1 THEN GOSUB 10140: GOSUB 10140: (null) TO 230
10040 GOSUB 10140
10050 FOR JL=1 TO NL
10060 :   FOR IL=1 TO LT
10070 :      PRINT#15,"M-E"CHR$(0)CHR$(193)
10080 :   NEXT IL
10090 :   GOSUB 10140
10100 NEXT JL
10110 CLOSE 15
10120 RETURN
10130 REM    DELAY
10140 FOR IL=1 TO 20*LT
10150 NEXT IL
10160 RETURN
10170 REM    DIVIDE NUMBER INTO DECADES
10180 REM    AND SEND EACH DIGIT OUT
10190 N$ = STR$(N): ND = 0
10200 IF LEN(N$) < 2 THEN 10300
10210 FOR KL=1 TO LEN(N$)
10220 :   NN$ = MID$(N$,KL,1)
10230 :   IF NN$=" " THEN 10290
10240 :   IF NN$="-" THEN NL = 5: LT = 1: GOTO 10280
10250 :   IF NN$="." THEN ND = 1: NL = 1: LT = 50: GOTO 10280
10260 :   NL = VAL(NN$): LT = 10
10270 :   IF NL = 0  THEN NL = 1: LT = 2
10280 :   GOSUB 10020
10290 NEXT KL
10300 IF EZ$<>"E" THEN: IF ND = 0 THEN NL = 1: LT = 50: GOSUB 10020
10310 RETURN
60100 PN$="[199]UESS THE [206]UMBER":AN$="[194][217]:  [205]ICHAEL [202]. [203]ERYAN"
60110 BO=11:SC=15:CL=06:C1=12:C2=00:C3=12:C4=00:C5=00:C6=02:C7=09
60120 REM BO - BORDER COLOR
60121 REM SC - SCREEN COLOR
60122 REM CL - COLOR POKED ON BORDER
60123 REM C1 - TOP BOX OUTSIDE COLOR
60124 REM C2 - TOP BOX INSIDE COLOR
60125 REM C3 - BOTTOM BOX OUTSIDE COLOR
60126 REM C4 - BOTTOM BOX INSIDE COLOR
60127 REM C5 - 'COPYRIGHT' COLOR
60128 REM C6 - 'PROGRAM NAME' COLOR
60129 REM C7 - 'AUTHORS NAME' COLOR
60130 POKE53280,BO:POKE53281,SC:PRINT"[147]";
60140 POKE646,C1:PRINT"  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60150 POKE646,C2:PRINT"  [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
60170 POKE646,C1:PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
60180 POKE646,C6:PRINT""TAB(20-LEN(PN$)/2);PN$
60190 POKE646,C7:PRINT""TAB(20-LEN(AN$)/2);AN$
60200 POKE646,C5:PRINT""TAB(13)"[195][207][208][217][210][201][199][200][212] 1986"
60210 PRINTTAB(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
60220 POKE646,C3:PRINT"  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60230 POKE646,C4:PRINT"  [165]                                  [167]"
60240 POKE646,C3:PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":LE=1044:RI=1043
60250 POKELE,98:POKERI,98:LE=LE-1:RI=RI+1
60260 CO=54272:POKERI+CO,CL:POKELE+CO,CL
60270 IFLE=1025THEN60290
60280 GOTO60250
60290 POKELE,108:POKERI,123:POKELE+CO,CL:POKERI+CO,CL:POKE646,CL
60300 LE=LE+40:RI=RI+40:IFLE=1985THEN60330
60305 IFLE=1185THENPRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
60306 IFLE=1825THENPRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
60310 POKELE,225:POKERI,97:POKELE+CO,CL:POKERI+CO,CL
60320 GOTO60300
60330 POKELE,124:POKERI,126:POKELE+CO,CL:POKERI+CO,CL
60340 LE=LE+1:RI=RI-1:IFLE=2004THENPOKE198,.:GOTO60360
60350 POKELE,226:POKERI,226:POKELE+CO,CL:POKERI+CO,CL:GOTO60340
60360 PRINT"";
60370 POKE646,C2:PRINT"[165][208]RESS THE [[211][208][193][195][197] [194][193][210]] TO CONTINUE.[167]"
60380 FORA=1TO100
60390 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60400 NEXT
60410 PRINT"";
60420 PRINT"[165]                                  [167]"
60430 FORA=1TO100
60440 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60450 NEXT
60460 GOTO60360